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SECTION  1.  INTRODUCTION 


1.1  Pur 


The  purpose  of  the  Validation  Suaaary  Report  (VSR)  1*  to  Identify  Individual 
FORTRAN  language  aleaents  whose  lapleaentat Ion  does  not  confora  to  the  language 
specifications  defined  In  Aaer lean  Standard  FORTRAN#  13.9-1966. 


The  Validation  Suaaary  Report  Is  prepared  by  analysing  the  results  of  running 
the  FORTRAN  Coapller  Validation  Systea  (FCVS).  The  FORTRAN  Coapller  Validation 
Systea  consists  of  audit  routines  containing  features  of  Aaerlcan  Standard 
FORTRAN#  their  related  data#  and  an  Fiecutlve  Routine  which  prepares  the 
audit  routines  for  coaplletlon.  Each  audit  routine  Is  a FORTRAN  prograa  which 
Includes  aany  tests  and  supporting  procedures  Indicating  the  result  of  the 
tests. 

The  testing  of  a coapller  In  a particular  hardware/operating  systea  environaent 
Is  accoaplished  by  coepiling  and  executing  each  audit  routine.  The  report  pro- 
duced by  each  routine  tells  whether  the  coapller  passed  or  failed  the  tests  in 
the  routine.  If  the  coapller  rejects  soae  language  eleaents  by  terainating 
coapilation#  giving  fatal  diagnostic  aessages#  or  terainating  esecution  abnor- 
mally# then  the  test  containing  the  code  the  coapller  was  unable  to  process  Is 
deleted.  The  audit  routine  is  coapiled  again  and  eaecutlon  is  repeated. 

The  coapilation  listings  and  the  output  reports  of  the  audit  routines  con- 
stitute the  raw  data  froa  which  the  aeabers  of  the  Federal  COBOL  Compiler 
Testing  Service  produce  a Validation  Suaaary  Report. 

1.3  Organisation  of  the  VSR 

The  Validation  Suaaary  Report  Is  made  up  of  several  sections  whose  contents 
are  described  below. 


a.  Section  ? summarises  the  results  of  the  coapilation  and  esecution 

of  the  programs  comprising  the  FORTRAN  Coapller  Validation  Systea.  Section  2 
is  divided  Into  a subsection  describing  the  syntas  errors  encountered  while 
coapillng  the  FORTRAN  audit  routines#  and  a subsection  describing  the  semantic 
errors  which  occurred  during  esecution  of  the  FORTRAN  sudlt  routines. 

b.  Section  3 contains  fnforaation  which  describes  the  software  environ- 
aent In  which  the  coapller  was  tested.  This  Includes  the  naae  and  version  of 
the  operating  systea  and  the  logical  unit /physical  device  assignments  used  In 
the  programs  comprising  the  FCVS.  The  options  used  with  the  coapller  are  also 
given#  and  If  applicable#  the  use  of  coapller  optimisation  features  Is  as- 
plelned. 

c.  Appendii  A is  the  Validation  Suaaary  Narking  Document#  a working 
paper  resulting  from  the  coapilation  and  esecution  of  the  FCVS.  The  body 
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•f  tilt  VSR  It  derived  free  Appendix  A. 

1.4.  Use  of  the  VSR 

The  teperteent  ef  the  Navy  eey  eake  full  end  free  public  disclosure  of  the 
Validation  Suaaary  Report  (VSR)  in  accordance  vith  the  "Freedoo  of  Inforeation 
Act"  (S  U.S.C.  BSS2).  The  results  of  the  validation  are  only  for  the  purposes 
ef  satisfying  United  States  Governeent  requt resents  * and  apply  only  to  the 
coaputer  systea*  operating  tystee  release*  and  coapiler  version  identified 
in  the  VSA. 

The  FORTRAN  Coapiler  Validation  Systea  is  used  to  deteroine*  insofar  as  is 
practical*  the  degree  to  vhich  the  subject  coapiler  conforas  to  the  FORTRAN 
Standard.  Thus*  the  VSR  is  necessarily  discretionary  and  Judgaental.  The 
United  States  Governeent  does  not  represent  or  varrsnt  that  the  stateaents* 
or  any  one  of  thea*  set  forth  in  the  VSR  are  accurate  or  coaplete.  The  VSR 
is  not  aeant  to  be  used  for  the  purpose  of  publicising  the  findings  suaoarised 
therein. 

1.5  Sources  of  Additional  Inforeation 

The  detailed  FORTRAN  language  specifications  are  given  in  the  publication 
"Aaeric an  Standard  FORTRAN*  13.9-1966"*  available  from  the  Aaerican  National 
Standards  Institute*  1430  Broadvay*  Nev  York*  Nev  Tork  10018. 

An  explanation  of  the  FORTRAN  Coapiler  Validation  Systea  is  contained  in  the 
FCVS  User's  Guide.  This  docuaent  explains  hov  to  run  the  coopiler  validation 
systea.  The  User's  Guide  and  a aagnetic  tape  containing  a copy  of  the  FCVS 
prograos  are  available  from  the  National  Technical  Inforeation  Service* 

5285  Port  Royal  Road*  Springfield*  Virginia*  22151.  (Ordering  Inforeation 
can  be  obtained  froa  the  Federal  COBOL  Coopiler  Testing  Service.) 
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SECTION  2.  OETAIIEP  EVALUATION  OF  ERRORS. 


TMi  section  lumrfiM  t he  results  of  the  coaplletlon  end  execution  of  the 
programs  comprising  the  FORTRAN  Compiler  Validation  System  (FCVS).  The  version 
of  the  FCVS  used  during  this  validation  Is  shown  Inside  the  front  cover  of  the 
VSR. 

Section  2 Is  aade  up  of  ‘two  subsections.  The  first  subsection  describes  each 
syntei  error  encountered  during  compilation  of  the  audit  routines*  and  the 
second  subsection  describes  the  seaantlc  errors  encountered  during  esecutlon 
of  the  audit  routines. 

Each  error  or  deviation  noted  In  this  section  wakes  reference  to  an  audit 
routine  naaed  In  Appendls  A (Validation  Suaaary  working  Document).  This  refer* 
ence  provides  the  docuaented  results  of  an  occurrence  of  errors/deviations 
datectad  during  the  running  of  the  FCVS  using  the  coapller  within  the  envlron- 
aent  Identified  In  this  docuaent.  The  Validation  Suaaary  Working  Docuaent  Is 
presented  In  sequence  by  audit  routine  naae. 
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2.1  Syntactical  errors 

*°  syntactical  arrors  occurred  during  tke  compilation  of  the  rews 
audit  routines. 

2.2  Semantic  errors 

do  semantic  errors  occurred  during  the  esecutlon  of  the  fCVS  audit 
rout Ines. 
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SECTION  3.  SOFTWARE  ENVIRONMENT. 

The  compiler  referenced  fn  this  document  mt  validated  using  the  software 
environaent  described  In  this  section.  When  using  a oodification  of  the 
described  environaent*  the  coapiler  may  or  aay  not  continue  to  confora  to  the 
Standard.  It  should  be  noted  that  during  the  validation  process*  an  atteapt 
it  aade  to  validate  as  aany  different  options  as  possible. 

The  use  of  coapiler- options*  loqical  uni t /phys i ca l device  assignaents* 
and  any  fora  of  optlaiaation  which  is  not  described  in  this  report  could  cause 
the  coapiler  to  produce  a prograa  that  does  not  perfora  according  to  the 
specifications  of  Standard  FORTRAN.  Only  the  environaent  described  in  this 
docuaent  has  been  used  with  this  coapiler  to  satisfy  the  validation  require- 

1.  Options  or  paraaetert  used  on  the  processor  call  stateaent  for  the  coapiler. 
Options  specified: 


Batch  - Without  Optiaitation. 

The  processor  call  stateaent  which  was  used  is 
//STEP  EXEC  FCDGOCL 


The  options  which  were  used  by  the  coapiler  are  NOOECK*  SOURCE*  EBCDIC* 
SHORT*  FIXED*  GO  and  LINECNT»5S. 

b.  Batch  - With  Opt iaixat ion. 


liae-sharing  - Without  Optiaitation. 


60F0RT  FN FIXED 

The  options  which  were  used  by  the  coapiler  are  the  saae  as  a.  above. 
4.  Tiae-sharlng  - With  Optiaitation. 


:1aiiati< 


2.  logical  Unit/Physical  Device  Assignaents. 
Printer  Destined  Files: 


Logical  unit  06  was  assigned  to  the  systea  print  device.  For 
batch  processing  this  was  the  printer  and  for  tiae-sharlng 
processing  this  was  the  tiae-sharlng  terainal. 
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Tape  Tile*: 

Logical  unit  07  was  assigned  to  a tape  file  by  using  the 
following  coaaand 

//f T07F001  DO  DSN*T01 »UNI 1*2*00* D ISP* <»KE EP) *DCB * (Bit SI 1 E =1 10. RE CFP*U ) 
Sequential  Mass-storage  files: 

Logical  unit  07  uas  assigned  to  a pass-storage  file  by  usinq  the 
following  coaaand 

//f T07001  DD  UNIT=3330*SPACE*(CYL*(c*1))*DCB=(BLKSIZE*11C*RECfP-U) 

Card  Input  files: 

Logical  unit  05  uas  assigned  to  the  systeas  input  device,  for 
batch  processing  this  uas  the  card  reader  and  for  tiae-sharing 
processing  this  uas  the  tiae-sharing  terainal. 

3.  Optiaization.  The  coapiler  aay  or  eay  not  have  optiaization  features. 

If  there  uas  an  optiaization  feature  available*  it  uas  used  during  the 
validation  process  (during  a separate  eiecution  of  the  Coapiler  Validation 
Systea)  to  deteraine  if  its  use  causes  the  coapiler  to  produce  a prograa  which 
does  not  give  the  eipected  results.  Tf  the  optiaization  it  invoked  through 
the  coapiler  call  stateaent  then  it  is  went ioned  in  paragraph  1 above.  If 

it  is  invoked  through  the  introduction  of  a coapiler  directing  source  prograa 
Stateaent*  it  is  shown  below.  Optiaization  which  would  require  aodification 
to  source  prograa  stataents  is  not  considered  in  this  report  in  that  it  is 
beyond  the  scope  of  the  use  of  Standard  FORTRAN  and  the  validation  process. 

There  is  no  optiaization  feature  for  this  coapiler. 

4.  Coapiler. 

FORTRAN  CODE  and  60 

5.  Operating  systea. 

OS  version  21. S*  MVT  with  HASP  3.1 

*.  Coaputer  Systea  Reference  Manual. 

IBM  Systea/360  0S(TS0)  CODE  and  60  FORTRAN  Processor  Terainal  User’s 
Suide*  Publication  SC28-6842-1*  June  1971. 
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APPENDIX  A 

VALIDATION  SUPNARY  WORKING  DOCUPENT 


This  appendf!  Is  a working  paper  produced  during  the  validation  and 
docuaents  the  results  of  the  coapllatlon  and  esecutlon  of  each  of  the 
prograas  coaprlslng  the  fCVS.  The  results  contained  herein  are  based  on 
the  use  of  the  coapfler  within  the  Validation  Environaent  identified  in 
this  appendix.  This  appendix  (Validation  Suaaary  Workino  Docuaent)  is  not 
part  of  the  official  Validation  Suaaary  Report  (VSR)»  and  it  is  not  intended 
to  reflect  in  any  way  the  coapiler's  usefulness  or  degree  of  conforaance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  aind  that  the  seat  problea 
area  aay  appear  in  aore  than  one  prograa  but  is  considered  only  as  a 
single  discrepancyr  and  the  problea  is  reflected  only  once  in  the  body  of 
the  VSR.  (The  VSR  wilt  in  turn  only  reference  the  first  occurrence  of  the 
problea  in  the  appendix.) 

This  appendix  is  divided  into  four  parts.  The  first  part  describes 
the  Validation  Environaent.  The  second  part  lists  the  Ponitor  Input  Cards 
used  in  creating  a job  control  streaa  for  execution  in  the  batch  aode. 

The  third  part  shows  the  control  cards  required  to  coapile  and  execute  an 
individual  prograa.  The  fourth  part  of  the  docuaent  is  divided  into  two 
categories  of  inforaation:  coapllatlon  results  and  execution  results. 

Inforaation  itcas*  such  as  coapiler  warning  aetsagei*  are  included  in  the 
suaaary  of  coapilation  and  execution  results. 

The  reference  docuaent  for  EORTRAN  is  Aaerican  Standard  FORTRAN* 
13.9-1966. 
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VALIDATION  ENVIRONMENT 


COMPILER  IDENTIFICATION:  FORTRAN  CODE  and  CO 

COMPUTER  SYSTEM:  IBM  SYSTEM  360/65 

OPERATING  SYSTEM;  OS  21.8  MVT  with  HASP  3.1 


Each  of  the  programs  comprising  the  FCVS  was  compiled  and  executed 
In  the  batch  aode.  In  addition,  the  programs  which  test  I/O,  FM100  through 
FM108,  were  first  run  with  the  output  logical  unit  assigned  to  a tape  device, 
and  then  rerun  with  the  output  logical  unit  assigned  to  a mass-storage 
device. 

The  FORTRAN  compiler  for  this  system  was  also  validated  by  compiling  and 
esecuting  selected  FCVS  audit  routines  under  IBM's  Time-Sharing  Option  (TSO>. 
The  output  logical  unit  for  the  test  results  was  the  terminal  device,  and  the 
output  logical  units  for  the  I/O  tests  were  assigned  to  mass-storage  devices. 
There  was  no  difference  In  results  when  the  audit  routines  were  compiled  and 
esecuted  under  TSO. 
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CCVS  EXECUTIVE  ROUTINE  CONTROL  CAROS 

Tlt«  CCVS  Esecutive  Routine  wa»  used  to  prepare  the  FCVS  progress  for 
execution  in  the  batch  node.  The  Control  Cards  used  as  input  to  the  CCVS 
Esecutive  together  uith  the  job  control  language  for  esecuting  the 
Executive  Routine  are  listed  below: 


/ / VAL  DATE  3 JOB  ( 1 90602* 4A  00 > * ’NIK E 0 CUNNING HAN**  CLASS*G*RE6I0N*1S0K 
//  EXEC  VALDATEH 
//STEP1.SYSIN  00  * 

• DATE  033177 
•INITIAL  ALL 

B-0103J//XXXXX  JOB  ( 190602* 4 A00  ) * *FORTRANCODEGO,*CLASS*C 

8- 02  S//STEPX  EXEC  PGN*1 EB6E NER 

9- 03  S//STSPRINT  0.)  STS0UT«A 

0-04  S//STSUT1  00  **OCB*(LRECL*80*BLKSIZE*80*RECFN*F> 

O-0519S  INCLUDE  SVSLNOD (XXXXX ) 

0-06  //SYSUT2  00  DSN*VAL1DATE .CONTROL* 01 SP* OLD 
0-07  T//SYSUT2  DO  0SN*VALI OA TE . CONTROL* 0 1SP=N0D 
o-08  S//SYSIN  oo  dunny 
0-0907S//STEP9  EXEC  FCDGOCL 
0-10  S//FORT.STSIN  00  • 

0-11 

E-0137S//LKE0 .SYSLNOO  00  OSN- VALIOA TE .LOAO (XXXXX ) * 

E-02  S //  0 1 SP=SHR 

E -03  J //LINK  EXEC  PCN-IEWL »REGI0N*1 50K* 

E -04  J //  PARN* 'XRE  F *LI ST*LET*NCAL* 

E -05  J//SYSPR1NT  DO  SYSOUT*A 

E -06  J//SYSUT1  00  UNIT*SYSVRK*SPACE ■ (C YL* (1 0*5) > 

E-0733J //SYSLNOO  00  OSN*VALIOATE.LOAD(XXXXX)*DISP*SHR 
E -08  J//SYSLIN  00  DSN* VALIOA  TE.CONTROL*DISP*SHR 
E -0921 J// STEPLAST  EXEC  PGN*XXXXX*RE6I0N*100K 
E-10  J//STEPLI0  00  DSN*VAL IDATE . LOAO*DI SP*SMR 
JOREAK*** 

J//FT06F001  00  SYSOUT *A 

• 


J//FT0SF001  00 
JOATE**** 

J/* 

J//FT07F001  00  UNIT-3330*SPACE*(CYL*>2*1>)*0CB*(BLKSIIE*110*RECFN*U) 
J//FT07F001  00  UNIT *2400*0 SN*T07*0 1 SP*(*KE EP) *0CB* (BLK SI IE *110*RECFN*U> 


(Selection  card*  for  FCVS  audit  routines) 


•BCO-POP  YES 
•CCVSVR  74 

•LIST  UPOATES*XCAROS«CTL*JCL 
•PRC 10 

•ENO-NON1TOR 
•BEGIN-UPO ATE 
•ENO-UPOATE 
/• 


■ 1 ' 
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//STEP2  EXEC  SCHEDULE 

//STEPZ.BOUE  00  UNIT-(3330*3>,SPACE«(CTL»(30*2>> 

//BJCL  00  0Sh*VAlI0ATE.RE ADERH,01SPb010»V0LbSERbL'VKLIB«UNITb3330* 
//  0CB>(IRECL*80«BLKS12E >400* RE C F**EB ) 

/• 
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CONTROL  CAROS  TOR  RUNNING  FCVS  PROGRAMS 


The  job  control  strooa  tor  compiling  end  eaecuttng  an  individual  audit 
routine  contitted  of  tha  following  job  control  language: 

// f N109  JOS  < 190602* A AOO) **F0RTRAN  CODEGO *»CL ASS»G 
//STEPX  EXEC  P6N* IEBGENER 
//STSPRINT  00  ST  $OUT*A 

//STSUT1  00  *«DCe«(LRECLBRO>BLKSIII*eO#RECFN>r> 

INCLUDE  STSLNOO(FNIOO) 

/ /STSUT2  00  0 SN* VAL 1 0 A TE . CONTROL# 01 SP*OL 0 
/ / ST S IN  00  OUNNT 
/ /STEP01 5 EXEC  FCOGOCL 
/ /FOR  T. ST  SIN  00  • 

(audit  routine  aource  prograo) 

//LKEO.STSLNOO  00  DSN-VALIOATE .LOAD (FN109), 

//  0 I SP*  SHR 

//LINK  EXEC  PGN*I EWL rREGI 0N*1 50K # 

//  PARNK'XREFrLlSTvLETwNCAL' 

//STSPRINT  00  STSOUT *A 

//STSUT1  00  UNI T*STSNRCrSPA CE*(CTL»(10r5)) 

/ / STSLNOO  00  0SN>VALI0ATE.LOA0(FP109)>0ISP>SHR 
//STSL1N  00  0 SN^VAL I DATE . CONTROL*  01 SP*SMR 
//STEPLAST  EXEC  PG«»FN109#R EG ION-100K 
//STEPLI6  00  OSNwVALIOATE.LOAOrOISPwSHR 

//FT07F001  00  UNlTB3330#SPACE>(CTLr(2«1)>«0C8*(LRECL>110»RECFN«U) 

//FT06F001  00  STSOUT-A 
/ / F T0SF001  00  • 

/a 


FCVS66-VSR215 


RUN  SUHNARICS 


FN001  through  rr035 


FR036 


I6K46  71  C 000338  ILLIGAL  STF»T 


FN037 


JCK4201  0000054  NO  STFIT  NR8R 
I4K487  0000054  ILLEGAL  STNT 


f CVS66-VSI215 


FP>039  through  FN045,  FN050  throuqh  FN062#  M080  throuoh  FU083#  and 
f 809  7 through  FN099 

8.  CoipHltlon 

No  errors. 

8.  I locution 


FORTRAN  1/0  Routine  MM 00  through  FH108 

In  tho  batch  node*  the  1/0  routine*  uere  executed  uith  the  output 
logical  unit  assigned  to  a tape  device  and  rerun  uith  the  output  logical 
unit  aitigned  to  a east-storage  device.  For  the  tiae-sharinq  runs#  the 
1/0  routines  uere  executed  uith  the  output  logical  unit  assigned  to  a 


FN101  through  FFM08 
A.  Compilation 


No  error*. 


0.  Iteration 


A.  Coapilation 


0.  (secution 


